object Calendarform: TCalendarform Left = 215 Top = 189 HelpContext = 40 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Choose a date' ClientHeight = 183 ClientWidth = 241 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 16 object ToolbarButton975: TToolbarButton97 Left = 4 Top = 8 Width = 18 Height = 18 end object ToolbarButton976: TToolbarButton97 Left = 22 Top = 8 Width = 18 Height = 18 end object ToolbarButton977: TToolbarButton97 Left = 23 Top = 8 Width = 18 Height = 18 end object ToolbarButton978: TToolbarButton97 Left = 12 Top = 16 Width = 18 Height = 18 end object Panel1: TPanel Left = 0 Top = 0 Width = 241 Height = 183 HelpContext = 40 Align = alClient BevelInner = bvLowered TabOrder = 0 object SelectDate: TToolbarButton97 Left = 10 Top = 153 Width = 25 Height = 24 Hint = 'Select Date' Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007777777777777777700000007777777774F77777700000007777 7777444F77777000000077777774444F777770000000700000444F44F7777000 000070FFF444F0744F777000000070F8884FF0774F777000000070FFFFFFF077 74F77000000070F88888F077774F7000000070FFFFFFF0777774F000000070F8 8777F07777774000000070FFFF00007777777000000070F88707077777777000 000070FFFF007777777770000000700000077777777770000000777777777777 777770000000} OnClick = Calendar1DblClick end object Cancel: TToolbarButton97 Left = 207 Top = 152 Width = 25 Height = 24 Hint = 'Cancel and Close calendar' Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333300F33333 33333333333333330FF3333330FF333333333333333333330000F33333333300 F33333330000F33333333300F33333330000F3333333300F3333333330000FF3 333000FF333333333300000F33000F33333333333300000F33000F3333333333 33330000000FF333333333333333300000F33333333333333333300000F33333 3333333333330000000FF333333333333300000F3300F3333333333300000FF3 333000FF3333333300000FF33330000F333333000000F33333333000F3333300 0F333333333333000FF333000F3333333333330000F333333333333333333333 3333333333333333333333333333333333333333333333333333} OnClick = CancelClick end object NextMth: TToolbarButton97 Left = 189 Top = 6 Width = 25 Height = 24 Hint = 'Next Month' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007FFFFFFFFFFFFFFFFFF700008777777777777777777F00008777 777777777777777F00008777777077777777777F00008777777007777777777F 00008777777000777777777F00008777777000077777777F0000877777700000 7777777F00008777777000000777777F00008777777000007777777F00008777 777000077777777F00008777777000777777777F00008777777007777777777F 00008777777077777777777F00008777777777777777777F0000877777777777 7777777F00007888888888888888888700007777777777777777777700007777 77777777777777770000} OnClick = NextMthClick end object NextYr: TToolbarButton97 Left = 214 Top = 6 Width = 25 Height = 24 Hint = 'Next Year' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007FFFFFFFFFFFFFFFFFF700008777777777777777777F00008777 777777777777777F00008777777777777777777F00008777707777707777777F 00008777700777700777777F00008777700077700077777F0000877770000770 0007777F00008777700000700000777F00008777700007700007777F00008777 700077700077777F00008777700777700777777F00008777707777707777777F 00008777777777777777777F00008777777777777777777F0000877777777777 7777777F00007888888888888888888700007777777777777777777700007777 77777777777777770000} OnClick = NextYrClick end object PrevYear: TToolbarButton97 Left = 3 Top = 6 Width = 25 Height = 24 Hint = 'Previous Year' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007FFFFFFFFFFFFFFFFFF700008777777777777777777F00008777 777777777777777F00008777777777777777777F00008777777707777707777F 00008777777007777007777F00008777770007770007777F0000877770000770 0007777F00008777000007000007777F00008777700007700007777F00008777 770007770007777F00008777777007777007777F00008777777707777707777F 00008777777777777777777F00008777777777777777777F0000877777777777 7777777F00007888888888888888888700007777777777777777777700007777 77777777777777770000} OnClick = PrevYearClick end object PrevMth: TToolbarButton97 Left = 29 Top = 6 Width = 25 Height = 24 Hint = 'Previous Month' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007FFFFFFFFFFFFFFFFFF700008777777777777777777F00008777 777777777777777F00008777777777770777777F00008777777777700777777F 00008777777777000777777F00008777777770000777777F0000877777770000 0777777F00008777777000000777777F00008777777700000777777F00008777 777770000777777F00008777777777000777777F00008777777777700777777F 00008777777777770777777F00008777777777777777777F0000877777777777 7777777F00007888888888888888888700007777777777777777777700007777 77777777777777770000} OnClick = PrevMthClick end object Panel2: TPanel Left = 56 Top = 6 Width = 65 Height = 24 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 end object Panel3: TPanel Left = 122 Top = 6 Width = 66 Height = 24 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 end object Panel4: TPanel Left = 87 Top = 155 Width = 69 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 end object Calendar1: TCalendar Left = 3 Top = 34 Width = 235 Height = 116 StartOfWeek = 0 TabOrder = 3 OnChange = Calendar1Change OnDblClick = Calendar1DblClick end end end